home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / fmdrgdrp / opt2 / invent.exe / INVENT.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-08-20  |  680 b   |  38 lines
  1. ' Dialog communictions
  2.  
  3. Global DialogCancel As Integer
  4. Global DialogParm As Variant
  5. Global DialogParm2 As Variant
  6.  
  7. Global Const ID_NEW_PARTS = 1
  8. Global Const ID_NEW_CUST = 2
  9. Global Const ID_NEW_OBROWSE = 3
  10.  
  11. Sub InventFileNew ()
  12.     DbsCreate
  13. End Sub
  14.  
  15. Sub Main ()
  16.     ' Be sure we're in the project directory
  17.     ChDir App.Path
  18.     ChDrive App.Path
  19.     
  20.     ' Set the help file
  21.     App.HelpFile = "invent.hlp"
  22.  
  23.     ' Initialize all modules
  24.     InitDbs
  25.     InitParts
  26.     InitCust
  27.     InitOrders
  28.     InitOBrowse
  29.  
  30.     ' Start up the main form
  31.     MDIMain.Show
  32. End Sub
  33.  
  34. Sub SetStatus (txt As String)
  35.     MDIMain.Status.Caption = " " + txt
  36. End Sub
  37.  
  38.